home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EuroCD 3
/
EuroCD 3.iso
/
Programming
/
Amos
/
KeyStateTester.AMOS
/
KeyStateTester.amosSourceCode
Wrap
AMOS Source Code
|
1998-06-24
|
745b
|
37 lines
'*** FINDS THE VALUE TO USE FOR KEY STATE ***
'* Alastair Murray 1997 (written 1995)
'* E-Mail: pmymagm@pmn1.maths.nott.ac.uk
'* Web Page: http://www.cs.nott.ac.uk/~agm/
'* Including More AMOS stuff
KSTATE
Procedure KSTATE
S=Screen
Screen Open 5,320,50,2,Lowres
Curs Off
Flash Off
Palette $0,$FFF
Cls 0
Paper 0
Pen 1
Home
Centre "Key State Tester"
Print
Print
Centre "Both Shift Keys To Quit"
Do
For A=0 To 127
If Key State(A)=-1 Then Goto EX
Next A
A=-1
EX:
If Key State(96)=-1 and Key State(97)=-1 Then Goto AFT
Locate 0,4
If A>-1 Then Print A;" "
If A=-1 Then Print "--- "
Loop
AFT:
Screen Close 5
Screen S
End Proc